﻿Public Class DocumentoBultoDetalle

    Dim _CIA, _SUC, _TDOCCOD, _DCICOD As String
    Dim _DCBCOD, _DBDCOD As Integer
    Dim _ARTCOD As String
    Dim _CANT As Decimal

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tdoc As String, dcicod As String, dcbcod As Integer, dbdcod As Integer, artcod As String, cant As Decimal)
        Me._CIA = cia
        Me._SUC = suc
        Me._TDOCCOD = tdoc
        Me._DCICOD = dcicod
        Me._DCBCOD = dcbcod
        Me._DBDCOD = dbdcod
        Me._ARTCOD = artcod
        Me._CANT = cant
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOCCOD
        End Get
        Set(value As String)
            _TDOCCOD = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _DCICOD
        End Get
        Set(value As String)
            _DCICOD = value
        End Set
    End Property

    Public Property DCB_Codigo() As Integer
        Get
            Return _DCBCOD
        End Get
        Set(value As Integer)
            _DCBCOD = value
        End Set
    End Property

    Public Property DBD_Codigo() As Integer
        Get
            Return _DBDCOD
        End Get
        Set(value As Integer)
            _DBDCOD = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property DBD_Cantidad() As Decimal
        Get
            Return _CANT
        End Get
        Set(value As Decimal)
            _CANT = value
        End Set
    End Property

End Class
